home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / mail / YAMscripts.lha / Unread.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-17  |  316b  |  13 lines
  1. /* This script will mark the current message unread and update the index 
  2.    The script needs at least YAM 1.3.3 */
  3. options results
  4. call addlib('rexxsupport.library',0,-30)
  5. address 'YAM'
  6. GetMailInfo File
  7. fname=result
  8. if rc=0 & exists(fname) then do
  9.     address command 'filenote <>nil:' fname 'U'
  10.     MailUpdate
  11.     end
  12. exit
  13.